




NT=2
   1 .CALC INPUT & SHIFT
   2 .UTILITIES
   3 .BY R. C. TIETJENS
  89 .****CLEAR ARRAY
  90 CLEAR ;NT=1
 100 FOR A=0TO SZ÷2;@(A)=0;MU=A;NEXT A
 105 PRINT "READY
 109 .***ACCEPT INPUT 
 110 FOR A=16TO 0STEP -1
 120 K=KP;TV=K
 124 .***IS #<0?
 125 IF K=45 @(17)=8;GOTO 120
 129 .***BACKSPACE?
 130 IF K=31GOTO 120
 139 .***FINISHED?
 140 IF K=13GOTO 170
 150 @(A)=K-48
 160 NEXT A;PRINT 
 169 .***SHIFT
 170 N=36;GOSUB 1000
 175 $+@(72),@(36),@(72)
 179 .***PRINT IT
 180 N=72;GOSUB 2000
 182 .***CLEAR TEMP STORAGE
 185 $-@(72),@(72),@(72)
 189 .***LOOK AT KEYPAD
 190 K=KP
 199 .***GO DO IT AGAIN
 200 GOTO 105
 999 STOP
1000 X=A;FOR A=0TO 16
1010 IF @(A)=-2GOTO 1020
1015 NEXT A;A=X;GOTO 1050
1020 FOR B=N+7TO NSTEP -1
1030 A=A-1;@(B)=@(A)
1040 NEXT B
1045 A=A+8
1050 FOR B=N+8TO N+15
1055 A=A+1;IF A>16 @(B)=0;GOTO 1070
1060 @(B)=@(A)
1070 NEXT B
1080 @(N+17)=@(17)
1090 PRINT ;FOR A=0TO 35;@(A)=0;NEXT A;RETURN 
2000 Z=1;IF @(N+17)="8"TV=45
2010 FOR B=N+15TO NSTEP -1
2015 IF B=N+7 Z=0;TV=46
2020 IF @(B)=48IF ZGOTO 2050
2030 Z=0;TV=@(B)
2050 NEXT B;PRINT 
2060 IF @(N+16)#48PRINT "OVERFLOW
2070 RETURN 
:RETURN 
>